home *** CD-ROM | disk | FTP | other *** search
/ Aminet 1 (Walnut Creek) / Aminet - June 1993 [Walnut Creek].iso / aminet / dev / lang / pcq12src.lzh / Runtime / System / Graphics / Clip.asm < prev    next >
Assembly Source File  |  1990-05-12  |  1KB  |  63 lines
  1. *
  2. *    Clip.asm of PCQ Pascal
  3. *    Copyright (c) 1990 Patrick Quaid
  4. *
  5. *    These are the glue routines for the procedure and functions
  6. *    defined in Include/Graphics/Clip.i.
  7. *
  8. *
  9.  
  10.     SECTION    PCQ_Runtime,CODE
  11.  
  12.     XREF    _GfxBase
  13.  
  14.     XREF    _LVOAttemptLockLayerRom
  15.     XDEF    _AttemptLockLayerRom
  16. _AttemptLockLayerRom
  17.     move.l    a5,-(sp)
  18.     move.l    4(sp),a5
  19.     move.l    _GfxBase,a6
  20.     jsr    _LVOAttemptLockLayerRom(a6)
  21.     move.l    (sp)+,a5
  22.     tst.b    d0
  23.     sne    d0    ; make sure it's my kind of Boolean
  24.     rts
  25.  
  26.     XREF    _LVOCopySBitMap
  27.     XDEF    _CopySBitMap
  28. _CopySBitMap
  29.     move.l    4(sp),a0
  30.     move.l    _GfxBase,a6
  31.     jmp    _LVOCopySBitMap(a6)
  32.  
  33.     XREF    _LVOLockLayerRom
  34.     XDEF    _LockLayerRom
  35. _LockLayerRom
  36.     move.l    a5,-(sp)
  37.     move.l    4(sp),a5
  38.     move.l    _GfxBase,a6
  39.     jsr    _LVOLockLayerRom(a6)
  40.     move.l    (sp)+,a5
  41.     rts
  42.  
  43.  
  44.     XREF    _LVOSyncSBitMap
  45.     XDEF    _SyncSBitMap
  46. _SyncSBitMap
  47.     move.l    4(sp),a0
  48.     move.l    _GfxBase,a6
  49.     jmp    _LVOSyncSBitMap(a6)
  50.  
  51.  
  52.     XREF    _LVOUnlockLayerRom
  53.     XDEF    _UnlockLayerRom
  54. _UnlockLayerRom
  55.     move.l    a5,-(sp)
  56.     move.l    4(sp),a5
  57.     move.l    _GfxBase,a6
  58.     jsr    _LVOUnlockLayerRom(a6)
  59.     move.l    (sp)+,a5
  60.     rts
  61.  
  62.     END
  63.